home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
pascalt2.zip
/
READINT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-01-15
|
923b
|
27 lines
(* Chapter 10 - Program 2 *)
program Read_Some_Variables;
var Index : byte;
Number1,Number2,Number3 : integer;
begin (* main program *)
Writeln('This is the ''Read'' portion of the program');
for Index := 1 to 5 do begin
Write('Enter up to three integers ');
Read(Number1,Number2,Number3);
Writeln('Thank you');
Writeln('The numbers entered were ',Number1:6,Number2:6,
Number3:6);
end;
Writeln;
Writeln('This is the ''Readln'' portion of the program');
for Index := 1 to 5 do begin
Write('Enter up to three integers ');
Readln(Number1,Number2,Number3);
Writeln('Thank you');
Writeln('The numbers entered were ',Number1:6,Number2:6,
Number3:6);
end;
end. (* of main program *)